home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 3 of 3).adf / EXTRA_SOURCE / OverText.AMOS / OverText.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  754 b   |  26 lines
  1. Rem Loads a picture into bank 2 unpack to screen 0 
  2. Rem Text is added over the top of picture by using Gr Writing and text commands
  3. Rem restored to original picture by use of block 1 
  4. Rem colour 15 is used as the text colour   
  5. Rem
  6. Rem David Pickin 
  7. Rem
  8. Rem
  9. Load "GP.abk",2
  10. Unpack 2 To 0 : Erase 2
  11. Gr Writing 0
  12. Colour 15,$FFF : Colour 17,$999 : Colour 18,$666 : Colour 19,$FFF
  13. Get Block 1,50,0,579,190 : Rem get original screen
  14. Bob Off : Paper 0 : ED=0
  15. Pen 15 : Ink 15 : Text 170,22,"Text Added Over A Background Picture"
  16. Text 170,30,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  17. Text 250,100,"Press Mouse"
  18. Repeat 
  19. Until Mouse Key
  20. Gr Writing 1
  21. Text 250,180,"This Is Normal Text"
  22. Wait 10
  23. Repeat 
  24. Until Mouse Key
  25. Put Block 1,50,0 : Rem Restore Screen 
  26. Del Block 1